(glasses-convert-to-unreadable): Consider

underscores as in `glasses-make-readable'.

diff --git a/lisp/progmodes/glasses.el b/lisp/progmodes/glasses.el
index 45c887e2c242216ee7e93bb7e3f72125114a9216..7ba294d53af1fa6b96c47dbb7b118dbd1b619194 100644 (file)
--- a/lisp/progmodes/glasses.el
+++ b/lisp/progmodes/glasses.el
@@ -229,7 +229,7 @@ recognized according to the current value of the variable `glasses-separator'."
            (goto-char (match-end n))))
        (when glasses-separate-parentheses-p
          (goto-char (point-min))
-         (while (re-search-forward "[a-zA-Z]\\( \\)\(" nil t)
+         (while (re-search-forward "[a-zA-Z]_*\\( \\)\(" nil t)
            (replace-match "" t nil nil 1))))))
   ;; nil must be returned to allow use in write file hooks
   nil)